home *** CD-ROM | disk | FTP | other *** search
/ GameStar 2005 October / Gamestar_77_2005-10_dvd.iso / Programy / setup365dni.exe / {app} / script / script_vb.365 < prev   
Encoding:
Text File  |  2004-12-29  |  939 b   |  43 lines
  1. <script language="VBscript">  
  2. <!--
  3.  
  4. public Zmena(200)
  5.  
  6. sub upozorneni(x,dS,pozor)
  7.   dim casStart
  8.   dim aktZ
  9.   casStart= left(right(ds,8),2)  & "." & left(right(ds,11),2)  & "." & left(ds,4) & " " & left(right(ds,5),2) & ":" & right(dS,2)
  10.   
  11.   if DateDiff("n", Now, casStart) > 0 then
  12.     
  13.     aktZ=document.getElementById("P" & x).name
  14.     if Zmena(aktZ)="1" then
  15.       'ji₧ doÜlo ke zm∞n∞, tak₧e invertujeme pozor
  16.       if pozor="1" then
  17.         pozor=0
  18.       else
  19.         pozor=1
  20.       end if
  21.       Zmena(aktZ)="0"
  22.     else
  23.       'jeÜt∞ ke zm∞n∞ nedoÜlo  
  24.       Zmena(aktZ)="1"
  25.     end if
  26.    
  27.     
  28.     if pozor="1" then
  29.       document.getElementById("P" & x).bgcolor = ""
  30.     else
  31.      document.getElementById("P" & x).bgcolor = "red"
  32.     end if
  33.     window.navigate "c:\linkTIME" & x & "link"
  34.   else
  35.     window.navigate "c:\linkTIME" & "ZACAL" & "link"
  36.   end if
  37.   
  38.   
  39. end sub
  40.  
  41. -->
  42.  </script> 
  43.